TITLE: 

TYPE; 

TEMPORARY STORAGE: 

DURATION: 1 

ACCURACY: 

DESCRIPTION: 



NUMBER REPRESENTATION: 



UNIVERSITY OF ILLINOIS 
DIGITAL COMPUTER 



LIBRARY ROUTINE A 8 - 321 



Multiple Precision Integer Subroutines (DO I or SADOl) 
Set of Independent Subroutine 
0, 1, 2 
See -below 

Every integer is accurate to the least-significant digit, 
This is a set of subroutines which will enable the user 
to perform simple computations on integers to full pre- 
cision, without restricting the range of the integer 

39 
variables to being less than 2 . The set at present 

includes routines for addition, multiplication, shifting 

any number of binary digits left or right, output, small- 

integer output, and number transfer . Each is described 

in detail below. 

The multiple -precis ion Integer 

A = A Q + Al ( 2 39) + A 2 (2 39 ) 2 + ... An A (2 39 ) n A, 

where A. <^ 2 



39 



is represented in the Williams Memory 



by a set of numbers in memory locations m , m +1, m.H-2, 
,,.., m + n. +1, such that 



Location 



Contains 



m A 








Key Word for A 


V 1 








A o 


V 2 








h 


m A + 


n A 


+ 


1 


• 

nA 



Thus, n +2 is the number of locations required for storing 
the "digits" A. of the integer A. 

The Key word Is formed in such a way that on entry to a 
subroutine, the Key word has n.+l in the left-hand address 
position, m.+l (the location of A Q ) In the right-hand 
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EXAMPLES: 



ADDITION SUBROUTINE: 



address position, and all other digits zero. Results of 
arithmetic operations will also be stored in this form. 
Key A = 







n.+l 
A 







m A +l 
A 



0.. . , 9 10 ... 19 20 ... 29 30 ... 39 

Suppose the integer 5^9, 755, 813, 896 = 2^ + 8 is to 
be stored at location 100, Then the orders 
002F 00101F 003F 00101F 

OOF 008F or OQF OO8F 

OOF 001F 
OOF 001F OOF OOF 

are both correct representations. 

To store the integer 2 at location 200, the order-pair 
representation is 
003F 00201F 
OOF OOF 
OOF OOF 
OO^F OOF. 

50 words, temporary storage 0, 1, 2. 

This subroutine forms the sum of two positive multiple- 
precision integers, and stores the result. To form the 
sum A + B = C, this subroutine is entered by the instructions 



prX 

1 ■ 


L5 m_F 
J? 




50 m A F 
A 


P 


50 pF 




26 xF 


P+l 


00 m F 




— -- 


p+2 





hl = location of Key B, now in accumulator 



m = location of Key A 



x = location of Addition Subroutine 

m = location of Key C, where sum will 
be stored 



When the subroutine returns control to the left-hand side 

of p+2, the sum C will be in locations m , m +1, m +2, ...m p + 

n +1, Key C will be in the accumulator, and m +1 will be 

in the right-hand address position of the quotient register. 

The routine may or may not use location m +n p +2. 

It is possible to put m =m or iil and thus to have the 

sum stored in the position of one of the original operands. 



p-1 


L5 m A F 


p 


50 hlF 
'" 5P pF 


p+1 


26 xF 
00 m F 


p+2 


— — 
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Let n_ = min(n.,iO, and n = max(n.,n_) . Then, the time 
required is (6 + O.711-, + 1.3*0 msec. 
MULTIPLICATION SUBROUTINES 

55 "words , temporary storage 0, 1, 2. 

This subroutine forms the product of two positive multiple- 
precision integers, and stores the result. To form the 
product A x B = C, this subroutine is entered by the instructions 

m, = location of Key A, now is 

accumulator 
bl = location of Key B 



x = location of Multiplication 
subroutine 

m r = location of Key C, where pro- 
duct will be stored 



When the subroutine returns eontrol to the left-hand side 
of p+2, the product C will be in locations m p , m p +l, m +2 
„ „ . m + ii + 1, Key C will be in the accumulator, and 
m +1 will be in the right-hand address position of the 
quotient register. The routine may or may not use locations 
m + n~ + 2 and m + n^ + 3» It should be noted that "it is 
not possible to put m = 1. or hl as in the case of the 
Addition Subroutine. 

Time required = 8.3 + Q.55n. + fl.38 + 2.^3(n +l)] (ng+l) 
milliseconds o 

If one operand is consistently much larger than the other, 
a slight amount of time may be saved by always letting the 
larger be A. 
SHIFTING SUBROUTINE: 87 words, temporary storage 0, 1, 2. ' 

This subroutine will shift the multiple-precision integer 

any number of binary digits, that is, will multiply the : : . 

s s 

integer A by.„2 ? to form B: A2 = B. The number S may 

be either positive or negative. If A is shifted left S 

places, this is equivalent to an unbiased, multiplication 

g 
by 2 . If A is shifted right S places, S binary digits are 
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discarded, and the remaining number is not rounded. 

To -shift the multiple -precis ion integer A by S binary places, 

-"39 
enter this subroutine with S x 2 ^ in the accumulator, and 

with the orders 



for a left shift, or with 



p 


50 m ft F 
A 

50 pF 


p+1 


26 xF 


p 


JO m F 
50 pF 


p+1 


26 xF 



for a right shift, where 



m. = location of Key A 
x = location of this routine. 

If S is zero, this routine returns, control to the right- 
hand side of p+1 immediately; is S is negative , then the 
shift is in the direction opposite to that specified by the 
50 or JO program parameter. 

When the subroutine returns control to the right-hand side 
of p+1, the number B will be in locations m fi , m +1, m.+2, 
... m + ru + 1. In the case where the number of right 
shifts exceeds the number of possible available digits, : . 
(i.e. the number A is shifted away) location m A +l is set 
to zero aneE i3_> = 0. 

Operation times are difficult to estimate accurately. 
If S = 39N + r, is used to define N and R then approximate 
times are 

Right Shift: ^T^5.0 + (l.05 + ,02R)(n -N) m sec f or R ^ 
5.0 + 0.76(n.-N) m sec for R = 

Left shift: Jt tt 8.0 + (l.l + .02R)n + O.76N m sec f or R ^ 

>.Q + 0.76 n + 0.6N m sec for R = 
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SMALL -INTEGER PRINT SUBROUTINE: 

29 words, temporary storage 0, 1, 2 



This subroutine will punch a positive integer which is 

11 
less than 10 , with suppression of leading zeros. This 

routine is used as part of the output routine for a 
multiple-precision integer, so that it contains controls 
for spaces and line-feeds. In order to keep correct 
output format, this routine can be entered in two ways. The 
first entry is used to reset all counters and the zero- 
suppression test; subsequent entries retain the information 
left when the subroutine last returned control by its link. 
The controls will punch a space after every 10 digits, 
except that after every 50 digits, there will be a line-feed 
and two two-hole delay characters. Thus, if a single 
integer is to be printed, a space will appear between the 
tenth and eleventh digits if the integer is greater than 
10 . This routine does not precede the number by a line- 
feed character. 

To punch the positive integer N, enter this routine with 
N x 2 in the accumulator, and with the orders 



P 



50 pF whenre x is the location of this routine. 
p+1 26 xF Leading zeros of N will be suppressed; thus 
if N is zero, nothing will be punched. 
For subsequent entries which retain the previous information 

regarding zero suppression, spaces, and line-feeds, enter 

-59 
with N x 2 in the accumulator and with the orders 



P 



54 pF 
26 xF 



p+1 

The time required is l6 milliseconds per character punched. 
OUTPUT SUBROUTINE: kO + 29 words, temporary storage 0, 1, 2. 

This subroutine will convert to decimal and punch the multiple- 
precision integer A with Key word at m.. This routine uses 
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n A 
roughly n. (1.06) + 2 locations for converting A, starting 

at m. . The number A is destroyed. 

This routine does not punch line-feed characters either pre- 
ceding of following the number to be printed; it punches 
two one -hole delays immediately following the last digit 
of the number. Space and line-feed controls are carried 
in the small-integer print routine described above. 



THE -SMALL-INTEGER PRINT- ROUTINE MUST FOLLOW IMMEDIATELY 
AFTER THIS ROUTINE IN THE WILLIAMS MEMORY-* 

To punch the integer with Key Word at m., enter this routine 
with the instructions 

~m A F 

50 pF 

26 xF where x is the location of this routine , 



p+1 

The user must be sure there are enough spare memory locations 
following the integer A so as not to overwrite other informa- 
tion. 

The time required to output an integer is roughly 
1.29(n A +l) 2 + 1.2l(n ) + 176[n A (l.o6) A+1 +l] msec. 

NUMBER TRANSFER ROUTINE: 

11 words, no temporary storage. 

This subroutine transfers a multiple -precis ion integer from 

one part of the Williams Memory to another. The Key Word is 

corrected so that the new value of m.+l is in the right-hand 

address position. 

To move the number with Key Word at int. to the set of locations 

beginning at dl, enter this routine with .til , the final address, 

in the right-hand address position of the accumulator, and 

with the instructions, 

— m F m. = initial address of number 

50 pF 

26 xF x = location of this routine. 
p+1 
The time required is (2.07 + 0.58n.) milliseconds. 
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NOTE: 



Although no symbolic addresses are used in any subroutine, 
for the user 's convenience the library copies of these 
routines are identified by the following symbolic addresses 
Addition (ADD) 

Multiplication (MULT) 

Shifting (SHUT) 

Output (OUT) 

Small -Integer Print (PR) 
Number Transfer (MOVE). 



DATE May 17, 1961 



PROGRAMMED BY 
APPROVED BY 



John Ehrmai 




s 



nj 



LOCATION 


t ORDER 


NOTES PAGE 1 A 8 




OOK(ADD) 











kO F 
K5 N F 




Save Key B 




1 


^2 % 
^6 3L 








2 


k2 kfL 




Plant link 




3 


1$ 1-]F 
^2 11L 


by r 


get Key A 
Plant m. + 1 




k 


10 20F 
40 IF 








5 


LI IF 
kO IF 




-(n. + l) at 1 




6 


L5 F 
k-2 12L 




plant hl + 1 




7 


10 20F 
^0 F 








8 


LI F 
kO F 




-(rig + 1) at 




9 


il-1 ^8L 




Clear carry box 






L5 | ; ]F 


by 1 


get m^ 




10 


k-2 h6h 
lh 5L 




plant Key C store 

address and cto store address 




11 


k2 l6L 










L5 I 3F f ■ 


-2^-fcy 3', 17 1 A. 




12 


L^ ^L 




+ carry 






L4 f ]F 


by 19) 6* 


+ b. 

i 




13 


kO 2F 
32 37L 




temp store 




Ik 


L^ ^9L 
kO 2F 




correct overflowed 
sum 




15 


L5 5L 

k2 k&, £•-> 


- 37' 


and plant carry bit 




16 


L5 2F 










kO i ]F 


by 11 


Store 





LOCATION 


ORDER 




NOTES PAGE 2 A 
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17 


F5 HL 
42 11L 




Step A. address 




18 


42 28L 

F5 12L 




Step B. address 




19 


42 12L 
F5 i6l 




Step C. address 




20 


42 i6l 
42 32L 




Plant store addreses 




21 


42 42L 
F5 IF 




Count on A 




22 


40 IF 
36 25L 








23 


F5 F 
40 F 




not done A; count 
on B 




24 


36 28L 
22 11L 








25 


F5 F (r 
32 38L 


— 22' 


A done; 

if > 0, "both A and B done 




26 


40 IF 
L5 12L 




B not done; save B count 
at 1, get B. pickup 




27 


42 28L 

41 F 




address: : ; 
Clear 




28 


L5 48L 4^ 
L4 I ]F 


37 


carry + A. or B. 




29 


40 2F 
36 38L 








30 


L4 49L 
40 2F 




Correct overflowed sum 
store temporarily 




31 


L5 5L 




set carry to 1 




32 


42 48L /. 

L5 2F 

40 :[ ]f 


- 38 


Store C. 
1 




33 


F5 28L 
42 28L 




Step pickup address . 




3^ 


F5 32L 










42 32L 




Step store addresses 





LOCATION 


OEDER 


. — 
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35 


k2 kZL 








F5 IF 




Count at 1 


36 


kO IF 








32 38L 




if > G, done; . * . 1 is clear 


37 


26 28L 








23 1% *" 


VJ<J"*I-+. "1 *J 1 




38 


23 31L ! n 


—30' 






kl F f_ 


— 35 T , 36' 


Clear 


39 


L5 ^2L 






ko 


ij.2 F 
F5 ^6l 




-. n T2 if no carry 

loc s m n + n„ + J n . . J 
C C ] 1 if a carry 




^2 IF 




loc 1 = m„ + 1 


kl 


L3 k8L 
36 kkL 






k 2 


L5 ^8L 








kO | ]F 




Store carry as C 


k3 


LI IF 

22 kkL - 


") 




kk 


Fl IF <■— 
FJ+ F £" 


4—^1' 


"V 1 ")^ + n c + 2 ) 


^ 


50 ^% 




Clear Q 




00 20F 




Form Key C 


k6 


L^ IF 
1+0 -E' ]F 






kl 


50 IF 




m + 1 in Q 




26 t ]F 




exit via link 


kQ 


00 F 








00 IF 




carry storage 


k9 


80 F 








00 F 




Overflow correction bit 

.. i . . i. .. i. » 



LOCATION / 


ORDER ! NOTES PAGE k A 8 




60k(mult) r 




o 


^0 F : 


Store Key A 


I 


K5 I ]F 




R.H,A. = loc. of lowest C k 


1 


k2 6l 








hG 3L 




Plant pickup addresses 


2 


iA 11L 








k2 ^% 




Plant link 


3 


L5 f ]F 




Get Key B 




k6 50L 




Plant n_ + 1 


k 


50 53L 




Clear Q 




00 20F 




position uu + 1 


5 


k6 19L 
IA 50L 




plant B n location 




k6 50L 




end const = hl + n^ + 2 




L5 r ]F 




get m c 


7 


\2 L 




Plant C lowest, 




ii-2 13L 




Initialize clear loop 


8 


k2 kQL 
L5 F 




Plant Key C store 


9 


10 20F 








L^ 53L 




-1 + (n + 1) x 2" 39 


10 


^0 F 
F^ 11L 




Save A count 


n 


ho IF 
00 IF 




loc 1 = NO IF 00(n A + 3) F 


12 


S5 F ]F 




Save A n address at 




k6 12L 




LHA 


13 


k6 18L 




Plant starting address 




lH r ]F <r 


-17 


Clear loop 


l^ 


F5 13L 




NO IF 00(n A + j)F 




^2 13L 




-kO IF 00 IF 


15 


L5 IF 
LO 11L 




= 80 F 00 (n + j - 1)F 


16 


\2 IF 








32 35L 




jump to initialize 


IT 


22 13L 




loop 


._ ______ 


hi 5^L ^— 


- kO 


Clear carry "box 



LOCATION 


ORDER 
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■fi- 


; 18 


50 & 1 ]F 
L5 C ]F 




A i 

+(Q k X 2~ 39 ) 




19 


74 0? ]F 




x B. 




20 


L4 &■ ]F 
L4 5^L 
32 40L 




+ C, -. 
k + 1 

+ carry 




21 


L4 53L 
40 2F 




Correct for overflow 




22 


L5 11L 








. 


42 5^L ^ 


— «. 4l 


Set carry digit 




23 


L5 2F 

40 [:.:■ ]F 




Store current MSP = Cg _ 




2k 


S5 F 
40 I ]F 




Store current LSP = C, 




25 


F5 l8L 
42 18L 




Advance addresses 




26 


42 24l 
k2 50L 








27 


L4 11L 

46 i8l 








28 


^2 19L 
42 23L 








29 


42 31L 
F5 IF 




Count on A 




30 


40 IF 

36 18L 




Loop if not done on A 




"31 


L5 5^L 
40 L' ]P 




Store carry appropriately 




32 


L5 19L 








33 


L4 11L 
46 19L 

LO 50L 




Advance B . — > B . , 
J J+l 

Test for end 




3^ 


32 4lL 
L5 12L 




reset A n address 




35 


46 18L 










Li F k 


— - 16 ' 


Reset A count 





LOCATION | 


ORDER 


■ 
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1 


kO IF 
F5 L 




Reset C addresses- 




37 


k2 L 
k2 18L 








38 


k2 24L 
L4 11L 








39 


k2 19L 
42 23L 








ko 


22 17L 




Loop with carry clear 






40 2F 4- 


_ 20' 


Save non- overflowed sum 




kl 


23 22L 




jump to clear carry 






iH 2F (~ 


— 34 


Begin setup for Key C 




k2 


kl IF 
L5 31L 








k3 


42 8L 
F5 48L 




Loc 2 = m r + n r + x 




kk 


42 1L 
L3 5^L 




Loc 1 = m + 1 
Any carry at end? 




^ 


32 50L 










L5 54l (- 


— -51- 


yes; complete Key C 




k6 


L4 2F/ 


. ^p' 








LO IF 






kj 


50 53L 
00 20F 




Clear Q 




kQ 


Lk IF 
kO fr 3F 




Store Key C 




k 9 


50 IF 
26 fr ]F 




m + 1 in Q 
exit via link 




50 


S4 [f ]F 




B loop end constant 






L3[^]Ff 


— 45 


Test last MSP = 0? 




51 


36 52L 










22 45L 










52 


Fl 5^L f~ 






Yes; "back up n p by 1 






26 46l 








53 


80 F 
00 F 




Overflow correction bit 




5^ 


00 F 

00 IF 




Carry storage 





LOCATION 


ORDER 


, NOTES PAGE 7 A 8 




OOK(SHOT) 




, , . . ...... . . . .... 





40 F 




Save S 




K5 I ]F 




RHA. = lowest - order "digit" location 


1 


42 37L 








46 3TL 




Plant link and key correction 


2 


46 5L 








40 IF 




Save for left-right test 


3 


L3 F 








32 3TL 




If S = 0, exit immediately 


4 


Ll F 








36 79L 




If S < 0, reverse S and parameter 


5 


L5 | ]F 
42 L 




Get Key word 


6 


42 22L 
42 28L 






7 


40 2F 








43 2F 




Save count at 2 


8 


51 F 
00 IF 






9 


66 42L 
10 IF 




Compute S = 39N + R 


10 


40 F 
42 21L 




R at 0, N in Q 


11 


36 43L 




Test L - R parameter 


12 


L5 l: ■? 
s4 F 




RIGHT SHIFT 


13 


42 20L 
00 20F 






l4 


46 28L 
L4 23L 






15 


46 20L 
Ll 2F 






16 


10 20F 








S4 F 




Store N - C at 1 


IT :../ 


40 IF 




If 




36 33L 




N £. C, all is lost 



LOCATION i 


ORDER 




NOTES L-- PAGE 8 


A 8 


18 


L3 F 
36 28L 




If 

R = 0, no shift 




19 


F5 IF {_ 
32 20L 


— 27' 


Last time thru loop, 
put in A 




20 


L5 r IF 

50 f ]F 




Shift a word 




21 


22 21L 
10 I ]F 




Waste 




22 


S5 F 
^0 I ]F 








23 


F5 IF 
40 IF 




Advance count 




2k 


32 3^L 
F5 22L 




Advance addresses 




25 


k2 22L 
F5 20L 








26 


k-2 20L 

Ik 23L 








27 


^6 20L 
26 19L 




Loop 




28 


L5 t ]* f 

^0 1 ]F 


->rw— JLO • , j£. 


Transfer directly if R 


= 


29 


F5 IF 
hO IF 








30 


32 33L 
F5 28L 








31 


h2 28L 
IX 29L . 








32 


h6 28L 
26 28L 








33 


23 28L f 


»—— j_Q t 


N > C, store a 




i? p doL (■"■" 


, ,, 20 


3^ 


26 36L 










S3 I ]F f- 


„— 2^ 


Test last MSP for 




35 


36 38L 
F5 22L t 


-— ^l'^O 1 







^LOCATION 


ORDER 
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36 




,-ok 




LU L 7" 


o^ 




00 20F 






37 


46 T ]F 




Correct count in Key word 




22 I' ]F 


:.:.:," ...:. 


, -.-■;. and exit via link 


38 


L5 22L ^-' 


~35 


See if last M3P was 




LO L 




also first MSP: 


39 


10 10F 


";''v ;'; i .; 


; Aether we started 




S3 F 




•with only one word 


ko 


32 35L 




If > 0, had only 1 




F5 L 




had more than 1 word so 


ki 


42 L 
22 35L 




back up count by 1 


k2 


00 F 
00 39F 




39 x 2~ 39 


^3 


L5 5L 
L4 2F 




LEFT SHIFT 


kk 


k6 64l 
46 jkL 






45 


L5 F 
00 20F 






k6 


46 591* 
46 65L 






kj 


Ll 2F 
10 20F 






48 


40 IF 
SI F 




-C at 1 


49 


40 2F 




-N at 2 




L5 L 




SeHs addresses 


50 


Sk F 
LO IF 






51 


42 6lL 
LO 55L 






52 


k2 66l 
k2 3^L 






53 


42 7^-L 
KO F 







LOCATION 
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54 


42 6feL 
l4 55L 






55 


42 58L 

L4 IF 






56 


S4 F 
42 8lL 






57 


L3 F 








36 7^L 




If R = 0, jump to transfer 


58 


32 58L 




•waste 




51 t }? 




Test for overflow on MSP 


59 


00 i ]F 

FO 86L 






60 


36 63L 








F4 86l 




Correct the overflow- 


6l 


22 6il 




waste 




40 I ]F 




Store properly 


62 


L5 6lL 








42 3^L 




Advance MSP address 


63 


F5 IF ( r 


■ — 60,72 






32 72L 




Test for last time through loop 


64 


L5 1' ]FL 


_74' 






50 E ]F 




Shift a "word 


65 


00 I ]F 
32 66l 






66 


l4 86l 
40 i ]F 




Correct overflow 


67 


F5 IF 








40 IF 




Count • 


68 


32 80L 








L5 66l 




Back up all addresses 


69 


LO 67L 

42 66l 




By 1 


70 


L5 64l 
LQ 67L 






71 


42 64l 






- ' ,» * 


46 64l 







LOCATION 
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72 


26 63L 








L5 60L 


63' 


Set to put O's in Q 


73 


k2 6kL 
26 6^L 




on last time thru shift loop 


7^ 


L5 [ ]F 
^0 | ]F 




Transfer Bodily 


75 


F5 IF 








kO IF 




Count 


76 


32 80L 








L5 ih-L 




Back up addresses 


77 


LO 75L 
k2 jkL 






78 


k6 7^L 
26 7^+L 






79 


kO F 




Reverse S and 




LI IF 




Left-right parameter 


80 


22 2L 

L5 2F L 
\ 


8V 
—68,76 


Any location to be cleared? 


81 


36 85L 








hi t ]F 




Clear a location 


82 


F5 2F 








40 2F 




Count 


83 


L5 81L 
LO 79L 






& 


\2 81L 
22 80L 






85 


F5 3^L 
26 36L 




Get M3P address for exit 


86 


•80 F 








00 F 




Correction hit 



" LOCATION 


ORDER 
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OOK(OUT) 









K5 F 








^2 3% 




Plant -dink 


1 


10 20F 
^2 2L 






2 


k2 3^L 




Plant end constant 




L5 F 




get Key 


3 


10 20F 




Construct most significant 




Lk 3^4-L 




digit address 


k 


^2 5L 
L5 3^L 






5 


22 20L 




Enter loop 




00 [ JF 




RHA = M.S. digit address 


6 


*H [R k ]Ff— 


- 28 






L5 [d.}f£— 


<~ Q ' 




7 


10 IF 








01 IF 




Save last bit 


8 


kO F 

50 [Dj]F 






9 


L5 F 








66 6Ql 




~ 10 11 x 2~39 


10 


Lk F 








lo 68l 




Test for > 10 11 


11 


36 13L 
iA- 68L 






12 


10 IF 








00 IF 




Drop division roundoff "bit 


13 


to [R k lF 
§5 F . 




Store partial remainder 


ik 


lo 58L 
36 32L 




Test for quotient = 


15 


l4 58L 








1^0 ID. +1 ]F 




Store quotient 


16 


^3 5&X 
L5 8L 




"block, zero test 


l? 


^2 1% 
LO 12L 




■ 
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18 


42 6l 
42 8L 






19 


FO 31L 

32 6l 






20 


F5 31L 








k2 31L 4' 


_ 5 


Advance end constant 


21 


00 20F 








46 6l 




Reset addresses 


22 


46 9L 
46 13L 






23 


L5 7L 
42 58L 




Restore zero test 


24 


L5 5L 

42p6l 






25 


42 8L 
F5 8l 






26 


42 5L 
42 15L 




Advance M.S.D. address 


27 


LO 12L 








LO 31L 




End test 


28 


36 6l 

L4 31L 






29 


42 35L 
50 37L 




Plant address for print 


30 


22 35L 
00 F 






31 


2L 4095F 








50 I ]F 




End constant 


32 


L5 5L 




Have zero quotient; 




LO 7L 




back up MSD address 


33 


42 5L 
g6 16L 




"by one 


3^ 


40 35L 








L4 1 ]F 




Print end constant 


35 


50 36L 








L5 I ]F 




get "digit", "base 10 11 

,. , — ... 



LOCATION 


ORDER 


NOTES PAGE Ik A 8 


36 


26 ^OL 

L5 35L 




jump to print 




37 


LO 7L 
^2 35L 




§'i£ep; pickup address 




3& 


LO 3^L 
36 35L 




End test 




39 


92 5F 
22 I ]F 




Punch 2 1-hole delays 
Exit via link 






Print Routine (PR) must "be attached immediately after the 


last 




-word of this routine 

! 


• 






OOK(PR) 











K5 F 








1 


k2 12L 
00 25F 




Plant link 




2 


36 2^L 
Fl 20L <r- 


— 27' 


Jump to initialize 




3 


kO 2F 
L5 IF 




Set digit count to -11 




k- 


50 2L 




Roundoff to Q 




5 


66 2&L 
75 20L f- 
LO l&L 


- 13 


— 10 11 

x 10 x 2" 39 

Test for zero 




6 


32 11L 
iA l&L 




Restore bit 




7 


00 36F 

^4-0 F 




Position digit, 
Store temporarily 




8 


k-3 18L 
F5 19L 




Block zero, test 




9 


)|0 10T S 


16 • 


Test for space 




32 13L 






10 


L5 F 

82 4f 




Punch digit 




11 


10 *K)F 




reposition fractional part 






F5 2F 
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12 


lj-0 2F 




Count digits 




32 :[ ]F 


by 1 


link 


13 


26 5L 




Loop 




tpc "l 7T <? 


Q ' 


| count spaces 


J?? J-fli ^ 


y 


ik 


32 20L 
UO 17L 




if > 0, do LFCR 


15 


00 3F 








93 963F 




punch space 


16 


Ll 20L 
26 9L 


:,' 


Reset space count 


17 


00 F 








00 F 




Space count for LFCR 


18 


80 F 








oo :[i:j.F 


by 8,2V 


Test for zero digits 


19 


00 F 








00 F 




Digit count for space 


20 


00 F 

00 10F ' v 


— ^ 


10 x 2~ 39 


21 


92 131F 




LFCR 




92 519F 




2 delays 


22 


Ll 20L 








10 IF 




Reset 1 '" -space count 


23 


ko 17L 








26 i6l 




re-enter loop 


2k 


L5 3L 4- 




Initialize: 




k2 18L 




Plant test :Mt it 


25 


Fl 20L 








^0 19L 




Set space count 


26 


Ll 20L 
10 IF 






27 


ko 17L 

22 2L 




Set LFCR count 


28 


17 1159F 
6f 20^8F 




- 10 11 x2- 39 
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ook(move) 











42 5L 
42 9L 




Plant final address m 




1 


K5 1023F 
42 10L 




Plant link 




2 


46 3L 




Plant Key pickup 






ii-6 5L 




initialize -work pickup 




3 


L4 f ]F 
L0 1L 


by 2 


get Key worct 
construct end constant 




4 


46 10L 
26 5L 








5 


L5 10241- 1? 

1^ £ ] F 


r< 


Move a word 




6 


F5 5L 
42 % 




Advance store address 




7 


LO 1L 
46 5L 


i 


Advance pickup address 




8 


LO 10L 
36 51* .- 


1 


End test 




9 


F5 9L 




Plant correct address 






42 (■ ]F 


by 


in Key word 




10 


JO ln+n.+2] 


? by 4 


end constant 






22 I 1 ]F 


by 1 


exit via link 





